﻿Option Explicit On
Option Strict On

''' <summary>
''' Formulario modificar usuario: Para modificar usuarios existentes en la BBDD
''' </summary>
''' <author>Julio Antoranz</author>

Public Class ModificarUsuario
    Private listaUsuario As List(Of Usuario)
    Private miBBDD As BBDD

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If ComboBox3.SelectedIndex > -1 Then
            listaUsuario(ComboBox3.SelectedIndex).Nombre = TextBox2.Text
            listaUsuario(ComboBox3.SelectedIndex).Apellidos = TextBox3.Text
            If (comprobarDNI(TextBox1.Text)) Then
                listaUsuario(ComboBox3.SelectedIndex).DNI = TextBox1.Text
            End If
            listaUsuario(ComboBox3.SelectedIndex).Direccion = TextBox6.Text
            If comprobarTelefono(TextBox4.Text) Then
                listaUsuario(ComboBox3.SelectedIndex).Telefono = TextBox4.Text
            End If
            listaUsuario(ComboBox3.SelectedIndex).Password = TextBox7.Text

            If (miBBDD.ModificaUsuario(listaUsuario(ComboBox3.SelectedIndex))) Then
                MsgBox("Usuario agregado con éxito", , "Completado")
                TextBox1.Text = ""
                TextBox2.Text = ""
                TextBox3.Text = ""
                TextBox4.Text = ""
                TextBox5.Text = ""
                TextBox6.Text = ""
                TextBox7.Text = ""
            Else
                MsgBox("Hubo un problema al modificar usuario", , "Fallo al modificar")
            End If
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()
    End Sub

    Private Sub ModificarUsuario_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        miBBDD = New BBDD
        listaUsuario = New List(Of Usuario)
    End Sub

    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        ComboBox3.Items.Clear()
        miBBDD.Conectar()
        listaUsuario = miBBDD.ListaUsuarios("SELECT * FROM empleado WHERE Nombre like ? or apellidos like ?", TextBox5.Text)
        For Each resultado As Usuario In listaUsuario
            ComboBox3.Items.Add(resultado.Apellidos & ", " & resultado.Nombre)
        Next
    End Sub

    Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
        If listaUsuario.Count > 0 And ComboBox3.Items.Count > 0 And ComboBox3.SelectedIndex > -1 Then
            TextBox2.Text = listaUsuario(ComboBox3.SelectedIndex).Nombre
            TextBox3.Text = listaUsuario(ComboBox3.SelectedIndex).Apellidos
            TextBox1.Text = listaUsuario(ComboBox3.SelectedIndex).DNI
            TextBox6.Text = listaUsuario(ComboBox3.SelectedIndex).Direccion
            TextBox4.Text = listaUsuario(ComboBox3.SelectedIndex).Telefono
            TextBox7.Text = listaUsuario(ComboBox3.SelectedIndex).Password
        End If
    End Sub
End Class